	START	TESTE
*
	MACRO
	SCALE 	&RP
	MACRO
	MULTSC	&A, &B, &C
	LOAD	&A
	MULT	&B
	SHIFTR	&RP
	STORE	&C
	MEND
	MACRO
	DIVSC	&A, &B, &C
	LOAD	&A
	DIV	&B
	SHIFTL	&RP
	STORE	&C
	MEND
	MEND
*
	MACRO
&LAB	DISCR	&A, &B, &C, &D
&LAB	MULTSC	&A, &C, TEMP1
	MULTSC	TEMP1, @4, TEMP1
	MULTSC	&A, &B, TEMP2
	SUB	TEMP1
	STORE	&D
	MEND
*
	READ	A
	READ	B
	READ	C
	SCALE	3
LAB	DISCR	A, B, C, D
	WRITE	D
	STOP
*
A	SPACE
B	SPACE
C	SPACE
D	SPACE
TEMP1	SPACE
TEMP2	SPACE
*
	END